home *** CD-ROM | disk | FTP | other *** search
/ Adventures with Oslo: Tools & Gadgets / Adventures with Oslo - Tools and Gadgets.ISO / mac / Ad / Mod03 / Puzzles / crypto.Dir / 00019_alphabet.ls < prev    next >
Encoding:
Text File  |  1994-09-23  |  360 b   |  12 lines
  1. on mouseUp
  2.   global selectedLetter
  3.   set horz to getAt(the clickLoc, 1)
  4.   if horz < (the right of sprite 27 - 2) then
  5.     set letter to (horz - the left of sprite 27) / 24
  6.     set the locH of sprite 28 to the left of sprite 27 + (letter * 24)
  7.     puppetSound("Bip.S")
  8.     updateStage()
  9.     set selectedLetter to numToChar(charToNum("a") + letter)
  10.   end if
  11. end
  12.